home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1991: Code Warrior / bincue / Code Warrior.bin / Developer Essentials / DTS Sample Code / Snippets / Snippets Aug '91 / FindSysFolder < prev    next >
Encoding:
Text File  |  1991-09-09  |  1.5 KB  |  45 lines  |  [TEXT/MACA]
  1. Here's a snippet.  It returns the vRefNum and DirID of the System Folder.  It does it the right way under both 6.0 and 7.0.
  2.   ---------------
  3.   
  4.   #define BTstQ(arg, bitnbr)        (arg & (1 << bitnbr))
  5.   
  6.   /* FindSysFolder returns the (real) vRefNum, and the DirID of the current
  7.      system folder.  It uses the Folder Manager if present, otherwise it falls
  8.      back to SysEnvirons.  It returns zero on success, otherwise a standard
  9.      system error. */
  10.   
  11.   OSErr    FindSysFolder(short *foundVRefNum, long *foundDirID)
  12.   {
  13.       long            gesResponse;
  14.       SysEnvRec        envRec;
  15.       WDPBRec            myWDPB;
  16.       unsigned char    volName[34];
  17.       OSErr            err;
  18.       
  19.       
  20.       *foundVRefNum = 0;
  21.       *foundDirID = 0;
  22.       if (!Gestalt (gestaltFindFolderAttr, &gesResponse) &&
  23.           BTstQ (gesResponse, gestaltFindFolderPresent)) {    /* Does Folder Manager
  24.   exist? */
  25.               err = FindFolder (kOnSystemDisk, kSystemFolderType, kDontCreateFolder, 
  26.                   foundVRefNum, foundDirID);
  27.       } else {
  28.           /* Gestalt can't give us the answer, so we resort to SysEnvirons */
  29.           if (!(err = SysEnvirons (curSysEnvVers, &envRec))) {
  30.               myWDPB.ioVRefNum = envRec.sysVRefNum;
  31.               volName[0] = '\000';                    /* Zero volume name */
  32.               myWDPB.ioNamePtr = volName;
  33.               myWDPB.ioWDIndex = 0;
  34.               myWDPB.ioWDProcID = 0;
  35.               if (!(err = PBGetWDInfo (&myWDPB, 0))) {
  36.                   *foundVRefNum = myWDPB.ioWDVRefNum;
  37.                   *foundDirID = myWDPB.ioWDDirID;
  38.               }
  39.           }
  40.       }
  41.       return (err);
  42.   }
  43. ======================================================================
  44.  
  45.